1 REM ==================================
2 REM    COMMODARES PROBLEM #45-2 :
3 REM      FADE AWAY
4 REM    SOLUTION BY
5 REM      ROBERT MARCUS
6 REM ======  C-64 ONLY  ===============
50 PRINTCHR$(142)CHR$(147)
60 PRINTTAB(82)"THERE WILL BE A SLIGHT DELAY BEFORE"
65 PRINTTAB(82)"THE CHARACTERS BEGIN TO FADE BEFORE"
70 PRINTTAB(82)"YOUR EYES"
100 POKE254,PEEK(56):POKE56,56:CLR:REM PROTECT CHAR. MEM. FROM BASIC
105 DIMN(7):N(0)=3:N(1)=1:N(2)=6:N(3)=0:N(4)=5:N(5)=7:N(6)=4:N(7)=2
110 POKE 56334,PEEK(56334)AND254
120 POKE 1,PEEK(1)AND251
130 FORI=0TO272:POKEI+14336,PEEK(I+53248):NEXT:REM MOVE FIRST 34 CHARACTERS
140 POKE1,PEEK(1)OR4
150 POKE56334,PEEK(56334)OR1
160 POKE53272,(PEEK(53272)AND240)OR14:REM NEW CHAR. MEM. LOCATION
170 PRINTTAB(85)"NOW WE SHALL BEGIN FADING OUT"
180 FORI=0TO7:BI(I)=2^I:NEXT:REM SET BIT
190 FORJ=0TO7:FORI=14344TO14608
200 POKEI,PEEK(I)ANDNOT(BI(N(J))):NEXT:NEXT:REM WIPE OUT CHAR'S BIT BY BIT
220 PRINT"[147]":POKE53272,(PEEK(53272)AND240)OR4:REM RETURN TO ROM CHAR MEM.
230 POKE56,PEEK(254):CLR:REM PUT TOP OF MEM BACK